home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / sound / melodyrecgui / melodyrecgui-de next >
Text File  |  1999-05-17  |  6KB  |  290 lines
  1. /* $VER: MelodyRec.rexx 1.0.4 (14.02.1999) © mEDi of dSd E-Mail:mEDi_dSd@GMX.DE */
  2. /*
  3.  
  4.  
  5. 22.01.99    V1.0.1    Erste laufende version
  6. 24.01.99    V1.0.2    2 mini Bugs durch Ramboy@USA.NET behoben
  7. 25.01.99    V1.0.3    erste veröffentlichte Version 
  8. 14.02.99    V1.0.4    Englische Version (RAMBOY) und Fehler behoben (RAMBOY)
  9. 07.05.99    V1.0.5    Neuer Device Name (RAMBOY)
  10.  
  11. */
  12.  
  13.  
  14.  
  15. /* rexxsupport.library öffnen */
  16.  
  17. IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
  18.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  19.       say "Konnte das rexxsupport.library nicht öffnen"
  20.       EXIT(10)
  21.       END
  22.  
  23.  
  24. Signal On Syntax
  25. Signal On IOErr
  26. Signal off failure
  27.  
  28.  
  29. CALL PRAGMA("PRIORITY",1)
  30.  
  31. /* rexxreqtools.library öffnen */
  32.  
  33. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  34.    IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN
  35.       EXIT(10)
  36.  
  37. IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
  38.    IF ~ADDLIB('tritonrexx.library',5,-30,0) THEN DO
  39.       SAY 'Kann die <tritonrexx.library> nicht öffnen!'
  40.       EXIT(10)
  41.    END
  42. END
  43.  
  44. OPTIONS RESULTS
  45. Version = "1.0"
  46. Release = "5"
  47. DATE    = "07.05.1999"
  48.  
  49. NL = '0a'x
  50.  
  51.  
  52. MainProgramm    = "MelodyRec"        /* MelodyRec pfade z.B. "sys:pro/MelodyRec" usw. */
  53. main_UNIT    = "0"            /* def audiounit */
  54. main_AudioName    = "melodyaudio.device"    /* def audioname */
  55.  
  56. main_BITS_LIST.0 = 3
  57. main_BITS_LIST.1 = 8
  58. main_BITS_LIST.2 = 16
  59. main_BITS_LIST.3 = 32
  60.  
  61. call init_windows
  62.  
  63.  
  64. app = TR_CREATEAPP('TRCA_Name MelodyRec.rexx',
  65.                    'TRCA_LongName "MelodyRec GUI © MEDI [_- DSD -_]"',
  66.                    'TRCA_Info     "MelodyRec GUI"',
  67.                    'TRCA_Version  'Version,
  68.                    'TRCA_Release  'Release,
  69.                    'TRCA_Date     'DATE,
  70.                    'TAG_END')
  71.  
  72. IF app ~= '00000000'x THEN DO
  73.  
  74.    window = TR_OPENPROJECT(app,windowtags)
  75.  
  76.    IF window ~= '00000000'x THEN DO
  77.       ende = 0
  78.  
  79.       DO WHILE ende ~= 1
  80.          CALL TR_WAIT(app,'')
  81.  
  82.          DO WHILE TR_HANDLEMSG(app,'event')
  83.  
  84.  
  85.  
  86. /*say '************'
  87. say event.trm_class
  88. say event.trm_id
  89. say '*************'*/
  90.  
  91.  
  92. /* 'TRMS_ACTION' START */
  93.  
  94.     IF event.trm_class = 'TRMS_ACTION' THEN DO
  95.         SELECT
  96.  
  97.  
  98. /* QUIT */
  99.         WHEN event.trm_id = 1 THEN ENDE = 1
  100.  
  101. /* SELECT new file */
  102.         WHEN event.trm_id = 21 THEN call select_new_file
  103.  
  104. /* RUN */
  105.         WHEN event.trm_id = 30 THEN call RUN_melodyREC
  106.  
  107.  
  108.  
  109. /* 'TRMS_ACTION' END */
  110.         OTHERWISE
  111.         NOP
  112.         END
  113.     END
  114.  
  115.  
  116.  
  117.             IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
  118.                ende = 1
  119.          END
  120.       END
  121.  
  122.       CALL TR_CLOSEPROJECT(window)
  123.    END
  124.  
  125.    CALL TR_DELETEAPP(app)
  126. END
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136. EXIT
  137.  
  138. /***********************************************************************************/
  139. /**********************************************************************************/
  140.  
  141. select_new_file:
  142.  
  143.  
  144.     main_new_files = rtfilerequest(, , "Bitte neuen Dateinamen angeben", ,"rtfi_buffer=true rtfi_matchpat=(#?")
  145.     if main_new_files = "" then return
  146.  
  147. call TR_SETATTRIBUTE(window,20,'TROB_String',main_new_files)
  148.  
  149. Return
  150.  
  151.  
  152. RUN_melodyREC:
  153.                 /* FILENAME/A,AUDIONAME/K,AUDIOUNIT/N/K,BITS/ */
  154.  
  155. main_FILENAME    = '"'TR_GetAttribute(window,20,'TROB_String')'"'
  156. main_AUDIONAME    = TR_GetAttribute(window,10,'TROB_String')
  157. main_AUDIOUNIT    = TR_GetAttribute(window,11,'TROB_String')
  158.  
  159.     dummy    = TR_GetAttribute(window,12,'TRAT_Value')+1
  160. main_BITS    = main_BITS_LIST.dummy
  161.  
  162.  
  163. if main_FILENAME = '"'||'"' | main_AUDIONAME = "" | main_AUDIOUNIT = "" then return
  164.  
  165.  
  166.  
  167. say "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit" main_AUDIOUNIT "bits" main_BITS
  168. address command  "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit"  main_AUDIOUNIT "bits" main_BITS
  169.  
  170.  
  171. call rtezrequest( "Stop drücken"NL,
  172.             "um Aufnahme"NL,
  173.             "abzubrechen",
  174.             , "   _STOP   ","MelodyRec GUI", ,
  175.             "rtez_flags=ezreqf_centertext rtez_defaultresponse=0")
  176.  
  177. address command "kill" "melodyRec"
  178.  
  179.  
  180.  
  181. Return
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194. /* Error Log funktion © 1996-99 mEDi of dSd **********************************/
  195.  
  196. SYNTAX:
  197. IOERR:
  198. failure:
  199. error_num = rc
  200. error_Sigl = Sigl
  201.  
  202. if exists("s:Error_text_D.txt") then
  203.         call READLINES("s:Error_text_D.txt",error_num,1,"%s %1024c",dummy error_txt_d)
  204.  
  205.  
  206. error_log_msg.0 = 8
  207. error_log_msg.1 = "*************************************************"
  208. error_log_msg.2 = "Fehler "error_num" in Zeile:" Sigl
  209. error_log_msg.3 = "- Zeile wo der fehler aufgetreten ist -----------"
  210. error_log_msg.4 = SOURCELINE(sigl)
  211. error_log_msg.5 = "- Erleuterung -----------------------------------"
  212. error_log_msg.6 = "Deutsch : "error_txt_d.1
  213. error_log_msg.7 = "Original: "ERRORTEXT(error_num)
  214. error_log_msg.8 = "Programm: MelodyRec.rexx V"Version"."Release" ("DATE")"
  215.  
  216.  
  217. if ~WRITEFILE("t:Error.log",error_log_msg,append) THEN
  218.     call WRITEFILE("t:Error.log",error_log_msg,)
  219.  
  220. do i = 1 to error_log_msg.0
  221. say error_log_msg.i
  222. end
  223.  
  224.  
  225. if app ~= "APP" then
  226.     CALL TR_DELETEAPP(app)
  227.  
  228. EXIT
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238. INIT_Windows:
  239.  
  240.  
  241. windowtags =    WindowID(1),
  242.         WindowTitle('MelodyRec GUI v'Version||Release" ("DATE")"),
  243.         windowPosition(TRWP_DEFAULT),
  244.         'VertGroupA',
  245.             'Space',
  246.             NamedSeparator(' © 1999 mEDi of dSd'),
  247.             'Space',
  248.             'HorizGroup',
  249.                 'HorizGroup',
  250.                         'Space',
  251.                     text3("AudioName: ") 'Space' StringGadget(main_AudioName,10) 'TRAT_Value 32',
  252.                     'Space',
  253.                 'EndGroup',
  254.                     'Space',
  255.                 'HorizGroup' ,
  256.                         'Space',
  257.                     text3("UNIT:") StringGadget(main_UNIT,11) 'TRAT_Value 2',
  258.                         'Space',
  259.                     text3("BITS"),
  260.                     'Space',
  261.                     CycleGadget('main_BITS_LIST',1,12),
  262.                     'Space',
  263.                 'EndGroup',
  264.                     'Space',
  265.             'EndGroup',
  266.                     'Space',
  267.             'HorizGroupA',
  268.                     'Space',
  269.                 text3("File: "),
  270.                     'Space',
  271.                 StringGadget("",20) 'TRAT_Value 256',
  272.                     'Space',
  273.                 GetFileButton(21),
  274.                     'Space',
  275.             'EndGroup',
  276.                 'Space',
  277.             'HorizGroupS',
  278.                     'Space',
  279.                 Button("Aufnahme",30),
  280.                     'Space',
  281.                 Button("Beenden",1),
  282.                     'Space',
  283.             'EndGroup',
  284.                 'Space',
  285.         'EndGroup',
  286.         'EndProject'
  287.  
  288.  
  289. return
  290.